/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / System7 tools / Frontier / App Cleanup.sit / App Cleanup. / App Cleanup.rsrc / scpt_129

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 04 5b 00 02 00 00 | 00 f6 00 00 05 dd 00 00 |...[....|........|
|00000010| 02 00 00 0f 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 06 78 00 00 a4 d7 | e5 10 a4 d7 ef 69 00 00 |...x....|.....i..|
|00000050| 00 12 00 00 00 5f 00 7f | 01 a9 02 53 00 00 00 00 |....._..|...S....|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 6f 6e 20 61 |........|....on a|
|00000080| 70 70 63 6c 65 61 6e 75 | 70 20 28 70 61 74 68 29 |ppcleanu|p (path)|
|00000090| 20 c7 73 65 61 72 63 68 | 20 61 20 68 61 72 64 20 | .search| a hard |
|000000a0| 64 69 73 6b 20 66 6f 72 | 20 64 75 70 6c 69 63 61 |disk for| duplica|
|000000b0| 74 65 73 20 6f 66 20 61 | 6e 20 61 70 70 6c 69 63 |tes of a|n applic|
|000000c0| 61 74 69 6f 6e 0d 09 0d | 09 77 68 65 6e 20 79 6f |ation...|.when yo|
|000000d0| 75 20 67 65 74 20 61 20 | 6e 65 77 20 76 65 72 73 |u get a |new vers|
|000000e0| 69 6f 6e 20 6f 66 20 61 | 6e 20 61 70 70 6c 69 63 |ion of a|n applic|
|000000f0| 61 74 69 6f 6e 2c 20 68 | 6f 77 20 64 6f 65 73 20 |ation, h|ow does |
|00000100| 74 68 65 20 46 69 6e 64 | 65 72 20 74 65 6c 6c 20 |the Find|er tell |
|00000110| 74 68 65 20 64 69 66 66 | 65 72 65 6e 63 65 3f 0d |the diff|erence?.|
|00000120| 09 09 74 68 69 73 20 73 | 63 72 69 70 74 20 74 72 |..this s|cript tr|
|00000130| 61 76 65 6c 73 20 6f 76 | 65 72 20 61 6c 6c 20 74 |avels ov|er all t|
|00000140| 68 65 20 66 6f 6c 64 65 | 72 73 20 79 6f 75 20 61 |he folde|rs you a|
|00000150| 73 6b 20 69 74 20 74 6f | 0d 09 09 6c 6f 6f 6b 69 |sk it to|...looki|
|00000160| 6e 67 20 66 6f 72 20 66 | 69 6c 65 73 20 77 68 6f |ng for f|iles who|
|00000170| 73 65 20 63 72 65 61 74 | 6f 72 20 49 44 20 65 71 |se creat|or ID eq|
|00000180| 75 61 6c 73 20 74 68 65 | 20 49 44 20 79 6f 75 20 |uals the| ID you |
|00000190| 73 70 65 63 69 66 79 0d | 09 09 77 68 65 6e 20 69 |specify.|..when i|
|000001a0| 74 20 66 69 6e 64 73 20 | 6f 6e 65 2c 20 69 74 20 |t finds |one, it |
|000001b0| 61 73 6b 73 20 69 66 20 | 79 6f 75 20 77 61 6e 74 |asks if |you want|
|000001c0| 20 74 6f 20 73 65 74 20 | 69 74 73 20 63 72 65 61 | to set |its crea|
|000001d0| 74 6f 72 20 49 44 20 74 | 6f 20 27 2d 2d 2d 2d 27 |tor ID t|o '----'|
|000001e0| 0d 09 09 6d 61 6b 65 20 | 73 75 72 65 20 4e 4f 54 |...make |sure NOT|
|000001f0| 20 74 6f 20 63 68 61 6e | 67 65 20 74 68 65 20 49 | to chan|ge the I|
|00000200| 44 20 6f 66 20 74 68 65 | 20 72 65 61 6c 20 63 6f |D of the| real co|
|00000210| 70 79 20 6f 66 20 74 68 | 65 20 70 72 6f 67 72 61 |py of th|e progra|
|00000220| 6d 0d 09 09 09 74 68 65 | 20 6f 6e 65 20 79 6f 75 |m....the| one you|
|00000230| 20 77 61 6e 74 20 74 6f | 20 6c 61 75 6e 63 68 20 | want to| launch |
|00000240| 77 68 65 6e 20 79 6f 75 | 20 64 6f 75 62 6c 65 2d |when you| double-|
|00000250| 63 6c 69 63 6b 20 6f 6e | 20 61 20 64 61 74 61 20 |click on| a data |
|00000260| 66 69 6c 65 0d 09 09 77 | 65 20 77 72 6f 74 65 20 |file...w|e wrote |
|00000270| 74 68 69 73 20 73 63 72 | 69 70 74 20 66 6f 72 20 |this scr|ipt for |
|00000280| 46 72 6f 6e 74 69 65 72 | 20 62 65 74 61 20 73 69 |Frontier| beta si|
|00000290| 74 65 73 2c 20 77 68 6f | 20 6d 61 79 20 77 61 6e |tes, who| may wan|
|000002a0| 74 20 74 6f 20 6b 65 65 | 70 20 6f 6c 64 20 46 72 |t to kee|p old Fr|
|000002b0| 6f 6e 74 69 65 72 73 0d | 09 09 09 62 75 74 20 77 |ontiers.|...but w|
|000002c0| 61 6e 74 20 74 6f 20 62 | 65 20 73 75 72 65 20 74 |ant to b|e sure t|
|000002d0| 68 65 20 63 75 72 72 65 | 6e 74 20 6f 6e 65 20 69 |he curre|nt one i|
|000002e0| 73 20 74 68 65 20 6f 6e | 65 20 74 68 65 20 46 69 |s the on|e the Fi|
|000002f0| 6e 64 65 72 20 72 65 63 | 6f 67 6e 69 7a 65 73 0d |nder rec|ognizes.|
|00000300| 09 09 09 46 72 6f 6e 74 | 69 65 72 27 73 20 63 72 |...Front|ier's cr|
|00000310| 65 61 74 6f 72 20 49 44 | 20 69 73 20 27 4c 41 4e |eator ID| is 'LAN|
|00000320| 44 27 0d 09 0d 09 66 69 | 6c 65 2e 67 65 74 73 74 |D'....fi|le.getst|
|00000330| 72 69 6e 67 72 65 73 6f | 75 72 63 65 20 28 70 61 |ringreso|urce (pa|
|00000340| 74 68 2c 20 35 31 32 2c | 20 40 49 44 29 0d 09 69 |th, 512,| @ID)..i|
|00000350| 66 20 21 64 69 61 6c 6f | 67 2e 61 73 6b 20 28 22 |f !dialo|g.ask ("|
|00000360| 53 65 61 72 63 68 20 66 | 6f 72 20 61 70 70 73 20 |Search f|or apps |
|00000370| 77 68 6f 73 65 20 49 44 | 20 69 73 3f 22 2c 20 40 |whose ID| is?", @|
|00000380| 49 44 29 0d 09 09 72 65 | 74 75 72 6e 20 28 66 61 |ID)...re|turn (fa|
|00000390| 6c 73 65 29 0d 09 66 69 | 6c 65 2e 70 75 74 73 74 |lse)..fi|le.putst|
|000003a0| 72 69 6e 67 72 65 73 6f | 75 72 63 65 20 28 70 61 |ringreso|urce (pa|
|000003b0| 74 68 2c 20 35 31 32 2c | 20 49 44 29 0d 09 0d 09 |th, 512,| ID)....|
|000003c0| 69 66 20 21 66 69 6c 65 | 2e 67 65 74 66 6f 6c 64 |if !file|.getfold|
|000003d0| 65 72 64 69 61 6c 6f 67 | 20 28 40 70 61 74 68 29 |erdialog| (@path)|
|000003e0| 20 c7 73 63 72 69 70 74 | 20 69 73 20 70 6f 73 69 | .script| is posi|
|000003f0| 74 69 6f 6e 2d 69 6e 64 | 65 70 65 6e 64 65 6e 74 |tion-ind|ependent|
|00000400| 0d 09 09 72 65 74 75 72 | 6e 20 28 66 61 6c 73 65 |...retur|n (false|
|00000410| 29 0d 09 0d 09 6f 6e 20 | 64 6f 63 6c 65 61 6e 75 |)....on |docleanu|
|00000420| 70 20 28 70 61 74 68 29 | 0d 09 09 6c 6f 63 61 6c |p (path)|...local|
|00000430| 20 28 66 29 0d 09 09 66 | 69 6c 65 6c 6f 6f 70 20 | (f)...f|ileloop |
|00000440| 28 66 20 69 6e 20 70 61 | 74 68 29 0d 09 09 09 69 |(f in pa|th)....i|
|00000450| 66 20 66 69 6c 65 2e 69 | 73 66 6f 6c 64 65 72 20 |f file.i|sfolder |
|00000460| 28 66 29 0d 09 09 09 09 | 69 66 20 21 64 6f 63 6c |(f).....|if !docl|
|00000470| 65 61 6e 75 70 20 28 66 | 29 0d 09 09 09 09 09 72 |eanup (f|)......r|
|00000480| 65 74 75 72 6e 20 28 66 | 61 6c 73 65 29 0d 09 09 |eturn (f|alse)...|
|00000490| 09 65 6c 73 65 0d 09 09 | 09 09 6d 73 67 20 28 66 |.else...|..msg (f|
|000004a0| 69 6c 65 2e 66 69 6c 65 | 66 72 6f 6d 70 61 74 68 |ile.file|frompath|
|000004b0| 20 28 66 29 29 0d 09 09 | 09 09 69 66 20 66 69 6c | (f))...|..if fil|
|000004c0| 65 2e 63 72 65 61 74 6f | 72 20 28 66 29 20 65 71 |e.creato|r (f) eq|
|000004d0| 75 61 6c 73 20 49 44 0d | 09 09 09 09 09 69 66 20 |uals ID.|.....if |
|000004e0| 66 69 6c 65 2e 74 79 70 | 65 20 28 66 29 20 65 71 |file.typ|e (f) eq|
|000004f0| 75 61 6c 73 20 27 41 50 | 50 4c 27 0d 09 09 09 09 |uals 'AP|PL'.....|
|00000500| 09 09 6c 6f 63 61 6c 20 | 28 73 29 0d 09 09 09 09 |..local |(s).....|
|00000510| 09 09 73 20 3d 20 22 43 | 68 61 6e 67 65 20 63 72 |..s = "C|hange cr|
|00000520| 65 61 74 6f 72 20 49 44 | 20 66 6f 72 20 74 68 65 |eator ID| for the|
|00000530| 20 66 69 6c 65 20 d2 22 | 20 2b 20 66 69 6c 65 2e | file ."| + file.|
|00000540| 66 69 6c 65 66 72 6f 6d | 70 61 74 68 20 28 66 29 |filefrom|path (f)|
|00000550| 20 2b 20 22 d3 22 20 0d | 09 09 09 09 09 09 73 20 | + "." .|......s |
|00000560| 3d 20 73 20 2b 20 22 20 | 69 6e 20 66 6f 6c 64 65 |= s + " |in folde|
|00000570| 72 20 d2 22 20 2b 20 66 | 69 6c 65 2e 66 6f 6c 64 |r ." + f|ile.fold|
|00000580| 65 72 66 72 6f 6d 70 61 | 74 68 20 28 66 29 20 2b |erfrompa|th (f) +|
|00000590| 20 22 d3 3f 22 0d 09 09 | 09 09 09 09 73 70 65 61 | ".?"...|....spea|
|000005a0| 6b 65 72 2e 62 65 65 70 | 20 28 29 0d 09 09 09 09 |ker.beep| ().....|
|000005b0| 09 09 69 66 20 64 69 61 | 6c 6f 67 2e 63 6f 6e 66 |..if dia|log.conf|
|000005c0| 69 72 6d 20 28 73 29 0d | 09 09 09 09 09 09 09 66 |irm (s).|.......f|
|000005d0| 69 6c 65 2e 73 65 74 63 | 72 65 61 74 6f 72 20 28 |ile.setc|reator (|
|000005e0| 66 2c 20 27 2d 2d 2d 2d | 27 29 0d 09 09 09 09 09 |f, '----|')......|
|000005f0| 09 65 6c 73 65 20 c7 75 | 73 65 72 20 70 72 65 73 |.else .u|ser pres|
|00000600| 73 65 64 20 43 61 6e 63 | 65 6c 0d 09 09 09 09 09 |sed Canc|el......|
|00000610| 09 09 69 66 20 6b 62 2e | 6f 70 74 69 6f 6e 6b 65 |..if kb.|optionke|
|00000620| 79 20 28 29 0d 09 09 09 | 09 09 09 09 09 72 65 74 |y ()....|.....ret|
|00000630| 75 72 6e 20 28 66 61 6c | 73 65 29 0d 09 0d 09 72 |urn (fal|se)....r|
|00000640| 65 74 75 72 6e 20 28 64 | 6f 63 6c 65 61 6e 75 70 |eturn (d|ocleanup|
|00000650| 20 28 70 61 74 68 29 29 | 0d 80 00 00 00 00 00 80 | (path))|........|
|00000660| 00 00 00 00 00 84 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|000006a0| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|000006d0| 00 80 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00    |........|....... |
+--------+-------------------------+-------------------------+--------+--------+